0 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,1
1 REM ==================================
2 REM    COMMODARES PROBLEM #36-1 :
3 REM    FANCY FACTORIALS
4 REM
90 REM----SOLUTION BY MATT SHAPIRO------
100 H=100000:E=.0000001:I=0:J=0:K=1:C=0:P=0:N=0:DIMF(3000):F(1)=1:INPUT"N";N
110 FOR I=1 TO N:FOR J=1 TO K:P=I*F(J)+C:C=INT(P/H+E):F(J)=P-H*C:NEXT
120 IF C THEN K=K+1 : F(K)=C : C=0
130 NEXT:PRINT MID$(STR$(N),2)"!="MID$(STR$(F(K)),2);
140 IFK>1THENFORJ=K-1TO1STEP-1:PRINTRIGHT$("0000"+MID$(STR$(F(J)),2),5);:NEXT
150 END
190 REM----SOLUTION BY ROB SCHULTZ------
200 INPUT "N";N : M=1
210 FOR J=1 TO N : M=M*J
220 IF M>=10 THEN M=M/10 :E=E+1:GOTO 220
230 NEXT : PRINT M "E+" E
240 END
290 REM---SOLUTION BY CHARLES KLUEPFEL--
300 INPUT "N";N : PRINT N"[157]! = ";
310 LN=LOG(N)*(N+.5)-N+LOG(2*(null))/2+1/(12*N)-1/(360*N*N*N)
320 LN=LN+1/(1260*N*N*N*N*N)-1/(1680*N*N*N*N*N*N*N)
330 IF N<12 THEN PRINT INT(EXP(LN)+.5) : GOTO 360
340 LG=LN/LOG(10) : CH=INT(LG) :MN=LG-CH
350 PRINT LEFT$(STR$(EXP(MN*LOG(10)))+"0000000000",12-LEN(STR$(CH)));"E"MID$(STR$(CH),2)
360 END
390 REM------STIRLING'S FORMULA---------
400 INPUT "SPECIFY N LESS THAN 34";N
410 NF=SQR(2*(null)*N)*(N/EXP(1))^N
420 PRINT N "! >" NF
430 PRINT N "! <" NF*(1+1/(12*N-1))
440 END